Dim mess As New MessengerAPI.Messenger

   Private Sub Change_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Change.Click
'Opens up options for messenger
           mess.OptionsPages(0, MessengerAPI.MOPTIONPAGE.MOPT_GENERAL_PAGE)
'send new nickname
            SendKeys.Send(txtChange.Text)
'double enter (clicks "ok") to make sure the frame closes
            SendKeys.Send("{enter}")
            SendKeys.Send("{enter}")
'messagebox to verify the nickname has been changed
            MsgBox("Nickname changed into " + txtChange.Text, MsgBoxStyle.Information, "Nickname Changed")